SwapGridRealForward Subroutine

private subroutine SwapGridRealForward(matIn, matOut, latlon)

transport matrix from netcdf format to grid_real

Arguments

Type IntentOptional Attributes Name
real(kind=float), intent(in) :: matIn(:,:)
real(kind=float), intent(out) :: matOut(:,:)
integer :: latlon

Variables

Type Visibility Attributes Name Initial
integer, public :: i
integer, public :: idim
integer, public :: j
integer, public :: jdim

Source Code

SUBROUTINE SwapGridRealForward &
!
(matIn, matOut, latlon)

IMPLICIT NONE

!arguments with intent in:
REAL (KIND = float), INTENT (IN) :: matIn(:,:)

!arguments with intent out:
REAL (KIND = float), INTENT (OUT) :: matOut(:,:)

!local variables:
INTEGER :: i, j, idim, jdim, latlon
!----------------------end of declaration--------------------------------------
idim = SIZE (matOut,1)
jdim = SIZE (matOut,2)
DO i = 1, idim
  DO j = 1, jdim
     IF (latlon == 1) THEN 
        matOut (i,j) = matIn (j,idim - i + 1)
     ELSE
        matOut (i,j) = matIn (idim - i + 1,j)
     END IF
  END DO
END DO

END SUBROUTINE SwapGridRealForward